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1b-5¢ -1984 01:43:57 VAX-11 Bliss-32 V P 
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3 1 001 MODULE INIBIT ( LANGUAGE (8.18832) | ; 
b e | o 
Pa eS BBR Pall 
H = ; 
5 1 BEGIN | 
; 1! ; 
3 3 4 ! J CURSHRNESRARARENSR SHR TASHR AAT SNRI NT NE NATH SNS TO CNT O SITTIN TORT ONT SORT OR NET ENE | ° 
: -* * ; 
; ww 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
on 3 0011 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * . 
: \¢ pots : ” ALL RIGHTS RESERVED. : : 
: 14 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * . 
3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * , 
: 16 pote 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * + 
Teme | 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; 7 oth : * TRANSFERRED. + : 
° . ® . 
; $1 0031 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
H $¢ 00 ¢ i !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: 33 OG25 1 is CORPORATION. * | : 
Py . ® . 
; $2 0035 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * . 
: 26 0026 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . : 
oar 0027 1 !* * : 
; ae 0028 1 !* * 3 
3 50 34 : SRE RARER EERE AAA E AAA A AEE A TATA A AAA AAA AEA TATA A AAA AA AAA e Kee : 
ee 0031 1 I++ | : 
3 3 B86 1! ‘ : 
ae 0035 1! FACILIIY: INIT Utility Structure Level 1 ; 
; 2 0034 1 | : 
; $2 0035 1 ! ABSTRACT: ; 
> 36 0036 1 | | : 
; 4 Ones : This routine initializes the contents of the volume storage bitmap. 

: 39 0039 1 | ENVIRONMENT: | 

: 40 0040 1! 

s 61 0041 1! STARLET operating system, including privileged system services | 

; g 94 1! and internal exec routines. 

; & 0045 1! 

3 44 Boee 1 !-- 

3; 6 045 1! 

; 646 R206 1! 

; rts 944 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 13-Nov-1977 14:37 

: 49 0949 i MODIFIED BY: 

; 24 0051 1! v02-003 LMP0002 L. Mark Pilant 11-Nov-1981 13:15 

3 26 O3¢ 1! Fix bitmap allocation when a large number of blocks are 

: 54 bez ! : to be allocated. 

; 55 055 1! v02-002 ACG0191 Andrew C. Goldstein, | 1-Apr-1981 10:33 

: 2$ Bes : Fix index file allocation at end of volume 
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' v0101 ACG0069 Andrew C. Goldstein, 9=0ct-1979 16:58 
} Remove device data table 

i v0109 AcG00001 Andrew C. Goldstein 10-Oct-1978 21:27 
} Previous revision history moved to CINIT SRCJINIT.REV 


LIBRARY fo eh L1B, L32"; 
REQUIRE ‘"SRC$:IN 
REQUIRE ‘LIBDS: VMSLiB. 6a) 21NITMSG. B32'; 
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X-11 Bliss- 4, Page 3 

- DISKSVMSMASTER: CINIT.SRCJINIBIT.B32;1 (2). 
; ro £30 } GLOBAL ROUTINE INIT_BITMAP : NOVALUE = | 
ae 92 1 !+4 
eS 198 1! 
: es rr } FUNCTIONAL DESCRIPTION: 
: g 138 } This routine initializes the contents of the volume storage bitmap. 
; . 295 1 i CALLING SEQUENCE | 
3 a9 B200 : INIT_BITMAP () 
3 b 0804 1! INPUT PARAMETERS: 
 & 0503 1! NONE 
; B84 0504 1 | | 
> 85 0505 1 | IMPLICIT INPUTS: | 
; 0506 1! device data table 
; 87 0507 1! allocation table | 
; #8 0508 1! | 
; 89 0509 1 | OUTPUT PARAMETERS: | 
; 9 0510 1! NONE 
; (91 0511 1! 
; 32 O51¢ 1 | IMPLICIT OUTPUTS: 
; 9 0513 1! NONE | 
; 94 0514 1! 
; 0515 1 ! ROUTINE VALUE: 
; p28 & NONE 
s 9 0517 1! 
: 98 0518 1 ! SIDE EFFECTS: 
; 299 0519 1! storage bitmap file written 
100 0520 1 i | 
: 101 0521 1 !-- 
: 102 05 : 1 
3 103 O32 BEGIN 
: 104 0524 
: 105 B28? BUILTIN 
; 106 0526 ROT; 
; 107 0527 
; 108 0528 LOCAL 
: 109 0529 BLOCK_COUNT, ! number of blocks in storage map 
: 110 0530 MAP_LEN, ' LBN of current bitmap block | 
s 997 0531 PREV_LBN, ' start LBN + 1 of last entry processed 
: 18 b236 NEXT_LBN, ' start LBN of current allocation table entry 
:; 11 05 NDE ' table index of current entry 
: 116 0534 BIT_COUNT, ' number of bits to clear in storage map 
s 915 0535 _VBN, ' relative block in storage map to use | 
: 116 0536 BIT_POS, ! bit position of start of area 
3 BE 4 Bees BIT_IDX; ! index into bitmap buffer 
3 (119 §339 EXTERNAL 
: 120 0540 INIT_OPTIONS : BITVECTOR, ! command option flags 
3 tel 541 ALLOT_TABLE_CNT : VECTOR, ' allocation block count table 
ce § 246 ALLOC_TABLE_LBN : VECTOR, ' allocation LBN table 
aoe 54 BITMAP_CNT, ' block count of storage map file 
: 126 544 BITMAP_LBN ' starting LBN of ator oge map file 
3; 125 545 VOLUME~SIZE, ' size of volume rounded to next cluster 
; 126 0546 CLUSTER, ! volume cluster factor 
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Sep-1 :5 VAX-11 Bliss-32 V4.0-742 ° 
~kep= 138 9}: $3: 3 DISKSVMSMAS.TER: CINIT.SRCJINIBIT.B32;1 
/0 

ev 


BUFFER : BBLOCK, 1/0 buffer 
DEVICE_CHAR : BBLOCK; device characteristics 
EXTERNAL Bitlis 
LLOC_MAX : UNSIGNED (16); ! total number of entries in allocation table 


EXTERNAL ROUTINE 
CKSUM2 ' compute block checksum 
WRITE “BLOCK; i write block on volume 


Build the storage control block and write it out. 


CHSFILL (0, 512, BUFFER); 
IF_.INIT_OPTIONSCOPT_STRUCTURE1) 
THEN 


P BU Ae : VECTOR: 

BLOCE COUNT Pasir 
IF .BCOCK COUNT vera. T26 
THEN BLOCR_COUNT 


(BUFFER*3) <0 8> = gbbock COUNT; 

INCR J FROM 6 TO .BLOCK_COUNT - 1 

DO BUFFERL.J+1] = 

BUPFERL. BLOCK. COUNT? 13° ROT (.VOLUME_SIZE, 16); 


ELSE 
BEGIN 
BUF FERCSCB$W_STRUCLEV] = SCBSC_LEVEL2 + 1; 
BUF FERCSCBS$W-CLUSTERJ = CLUSTER 
BUF FERCSCBS$L~VOLSIZE] = “DEVICE vtuancoies. MAXBLOCK; 
BUF FERCSCBSL_BLKSIZEJ = (DEVIC E. CHARCDIB$B_SECTORS) 
* DEVICE HAR DIBSB- TRACKS} 
* [DEVICE-CHARCDIBS$W-CYLINDERSJ) 
/ .DEVICE~CHARCDIBSL~MAXBLOCK); 
BUF FERCSCBSL_SECTORS) = .DEVICE_CHARCDIB$B_SECTORSJ; 
BUF FERCSCBSL_TRACKS] = [DEVICE~CHARLDIBS$B- TRACKS); 
BUF FERCSCBSL~CYLINDER) = {DEVICE-CHARLDIBSW-CYLINDERS); 


~~ poeta (BUFFER, SBYTEOFFSET (SCBSW_CHECKSUM)); 


WRITE_BLOCK (.BI1TMAP_LBN, BUFFER); 


! Now write the contents of the bitmap, marking off the areas Listed in the 
! allocation table. To save disk thrashing, we process the table entries 
in LBN order. 


jOl TMP. LBN + 1; 


CHSFILL (+i — 512, BUFFER); 


UnILES ? wt 


F 2 
INIBIT 16-Sep-1984 01:43:57 VAX-11 Bliss-32 V4.0-742 Pa 5 
V04= 13 n198c 12:95:15 — DISKSVMGMASTERCCINIT SRCIINIBIT.032;1°% (25 
18 BEGIN 
186 ! Search the allocation table for the lowest LBN which is greater than the 
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one previously processed. 


_ 
fe 
co 


= -1; 
OM 0 TO ALLOC_MAX-1 DO 


»ALLOC_TABLE_LBNC.J)] GEQU .PREV_LBN 


BEG 
I 
AND .ALLOC_TABLE_LBNC.JJ LSSU .NEXT_LBN 
THEN 


BEGIN 
NEXT LBN = .ALLOC_TABLE_LBNC.J); 
INDER = J; 


END; 
.NEXT_LBN EQL . THEN EXITLOOP; ! done all entries 


See ee ber en eh anan-ttand-anee he 
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! from the current block in the storage map. 


BIT_COUNT = .ALLOC_TABLE_CNTC.INDEX] / .CLUSTER; 
BITZPOS = .NEXT_LBN / .CCUSTER - (.MAP_LBN - .BITMAP_LBN - 1) * 4096; 


! Now mark off the blocks represented by the allocated entry. This is coded 


AAAS 


' 
! one bit at a time to keep the code simple; the areas are not large enough 
! in general to warrant more intelligent code. If the bit position points 
off the end of the current block, pass blocks until its doesn't. 


ooo 


ane, 2611 POS LSSU 4096 DO 
pt BLoce (ane ae BUFFER); 


MINMNMNNNIN 3 3 2 OOO ooo ~o 00000 
FUNSLSSSRVRARUN LS CHVSARAVASSRUFARAVOOR RAR IO LOD 


4 
4 
4 
; 
5 
4 
IF J 
PREV_LBN = .NEXT_LBN + 
! For this group of blocks, compute the bit count and block and bit offset 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
3 


RIPON IPIPNINIMINIPIAIPIDINIAIPYIPININPYPINPINIPINININININIPI NINN AIPINOPONINYNYDY) 2 2 I SO Os 


EG 
06 
064 CHSFICL (-1, 5127 BUFFER); 
4 MAP_LBN = .MAP_LBN + 1; 
064 “POS = .BIT~POS - 4096; 
Bee END; 
064 DECR J FROM .BIT_COUNT TO 1 DO 
064 MAP BUFFER : BITVECTOR;: 
| 
064 BUFFERC.BIT_POS) = 0; 
069 BIT_POS = .BIT_POS + 1; 
65 IF .BIT_POS GEQU 4096 
65 THEN 
65 BEGIN 
35 65 WRITE _BLOCK(.MAP_LBN, BUFFER); 
5 CHSFICL (-1, 5127 BUFFER); 
3 5 MAP_LBN = ,MAP_LBN + 1; 
8 5 BIT~POS = 0; 
39 5 END; 
40 066 END; 


18-5 


14- 
0 
4 beg END; 


' 
45 65 n the storage map due to cluster roundup. 


0668 2 WRITE_BLOCK (.MAP_LBN, BUFFER); 
0669 MAP_LBN = .MAP_LBR + 1; 
9670 CHSFILL (0, 512, BUFFER); 


sah Oe LBN GEQU .BITMAP_LBN + .BITMAP_CN 


4 WRITE BLOCK ( MAP_LBN, BUFFER); 
5 LEN = .MAP_LBN + f; 

é END? 
7 
8 
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OFFC 00000 


0200 =8F 00 6E 


50 


OO 


DOL MODYVWIMO 


0000G CF 
QO00007E 8F 
00006 


4 QO00GCF 
OO00GCF 40 00006 
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! end of allocation scan loop 
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: einai ty flush the last buffer and zero any additional blocks present 


1 END; ! end of routine INIT_BITMAP 


INIBIT 
\V04-000\ 


INIT_OPTIONS, ALLOC_TABLE_CNT 


ALL Ot TABLE _L 
MAP_CNT hice 


ALLOC RaaX CHECK GUNZ 
WRITE~BLOCK 


SCODES,NOWRT,2 


INIT BITMAP, Save R2,R3,R4,R5,R6,R7,R8,R9,= 


R10,R11 
#0, (SP), #0, #512, BUFFER 
INIT_OPTIONS+3 


#1, BITMAP_CNT, BLOCK_COUNT 
BLOCK. COUNT, #126 


BLOCK_COUNT 
oye =COUNT, BUFFER+3 


#4096, BUFFER*4C J] 
BLOCK COUN 
#16, VOLUME sles BUF FER+4(BLOCK_COUNT] 


UFFER 
FER+2 

“tuanetie BUFFER+4 

CHA Reg. RO 

CHAR+9, R1 


ten’ B 
CE 
cee 
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bw 56 
16-Sep ay 33! :57 VAX-11 Bliss=-32 V4.0-742 7 | 
14-Sep p13 4 12:35:13 | DISKSVMSMASTER:CINIT.SRCJINIBIT.832; 429 * 
00006 CF 3C 00069 MOVZWL DEVICE_CHAR+10, R2 : 0584. 
36 gS tk Ooee he ey Se ; | 
00006 CF 90006 CF g7 DIVL3 DEVICE_CHAR+112, RO BUEFER*B > 0585) 
00006 CF 0006 CF 9A 00079 MOVZBL DEVI CE-CHAR+B, BuF FER+ : 0586 
00006 CF 9006 CF OA 080 MOVZBL DEVICE~CHAR*+ BUFFERS 16 : 058 
00006 cr 0006 cf C 000 MOVZWL DEVI CEICHAR+1O, BUF FER+20 : 0588 
E iFE BF 3¢ 8 MOVZWL #510, =(SP) + 0590 
0006 cr F 00 PUSHAB BUFFER : 
00006 CF 2 FB 0009 CALLS #2, CHECKSUM2 : 
00006 CF 9F 909¢ S$: PUSHAB BUFFER $ 0593 
00006 CF DD O00A0 PUSHL B1TMAP_LBN : 
90006 CF é FB OOA4 CALLS #2, WRITE BLOCK : 
56 00G CF g A9 ADDL3 #1. Hoe CBN. MAP_LBN + 0600 
BF FF OF 6E 0 2 OOOAE MOVCS #0. (SP), B-1, #5127 BUFFER + 0601 
wc bE D4 itt CLRL §- PREV_LBN + 0602 
59 01 CE OOOBC 6S: MNEGL #1, REXT_LBN + 0610 
50 01 CE O00BF MNEGL #1, J + 0613 
16 11 000C2 BRB 8S : 
51 OOO0GCF40 DO 000C4 78 MOVL ALLOC_TABLE_LBN(JJ, R1 ; 
6E 51 D1 OOOCA CMPL R1, PREV_LBN : 
0B iF 900¢D BLSSU 8S : 
59 51 01 OOOCF CMPL se RI, mex. _LBN + 0614 
06 1€ 000D2 BGEQU 8$ F 
59 51 D0 000D4 MOVL 1, NEXT_LBN + 0617 
5B 50 D0 00007 MOVL J, INDEX™ : 0618 
E2 50 000000006 BF F3 OOODA 8$ AOBLEQ MALLOC _MAX-1, J, 7$ > 0611 
FFFFFFFFE © 8F 59 Di 000E2 CMPL NEXT_LBN, #1 : 0621 
03 12 000E9 BNEQ ©=«o9$ : 
0084 31 O00EB BRW 15$ : 
6E 01 Ad Hs OOOEE 9S ROVAB 1(R9), PRE > 0622 
SA O000GCF4B 00006 CF C7? 000F2 DIVL3 CLUSTER, ALCOC TABLE_CNTCINDEX], BIT_COUNT : 0628 
51 59 00006 CF C7 OOOFB DIVL3 CLUSTER. | > 0629 
50 56 00006 CF C3 00101 SUBL3. BITMAP “ARP _LBN, RO ; 
50 50 Oc 78 00107 ASHL. = #12, RO: sy ; 
51 50 ¢c2 00108 SUBL2 RO, R1 : 
58 1000 C1 9€ O10E MOVAB 4096(R1), BIT_POS ; 
00001000 BF 58 0100113 10$: CMPL  BIT_POS, #4098 + 0637 
1F 1 OO11A BLSSU  _-'11$7 ; 
00006 CF 9F 0011C PUSHAB BUFFER t 0639 
56 DD 00120 PUSHL MAP_LBN ; 
00006 CF 02 FB 001 : CALL a2, WRITE_BLOCK ; 
8F FF oF 6E 00 2C 001 MOVCS #0. (SP),"#-1, #512, BUFFER + 0640 
00006 ct 4 F : 
6 D6 00132 INCL MAP_LBN > 0641 
5} FOOO §3=—sC8sO9E «(001 VAB -4096(R8), BIT_POS > 064 
D8 11 00139 BRB 10$ > 063 
57 01 AA 9 138 11$:  MOVAB  1(R10), J > 0645 
eB 11 0013F BRB 14$ ; 
00 00006 CF E5 00141 12$:  BBCC  BIT_POS, BUFFER, 13$ > 0649 
38 D6 O47 13$: INCL  BIT=POS > 0650 
00001900 ~=&F D1 00149 MPL  BIT"POS, #4096 > 0652 
1A 1F 001 : BLSSU 1487 ; 
00006 cr 9F 001 PUSHAB BUFFER > 0655 
6 DD 00156 PUSHL MAP_LBN F 
00006 CF 02 FB 00158 CALL a2, WRITE_BLOCK ; 
8F FF OF 6E 2C 0015 movCS #0, (SP),"#-1, #512, BUFFER > 0656 


00 
50 


; 259 9 
; 260 0680 1 END 
; 261 0681 0 ELUDOM 


Name 
SCODES 


File 
~$255$DUA28: CSYSLIBILIB.L32;1 


00006 F . 
i 06 
D2 5 
FFGA 3 
00006 gf 44 
0000G CF 63 re 
6E 00 2c 
0000G CF 
00006 gf 00006 gf c 
OF i1€ 
00006 gf OF 
6 0D 0 
0000G CF 9 fe 8 
—E4 110 
04 0 


; Routine Size: 422 bytes, Routine Base: $CODE$S + 0000 


PSECT SUMMARY 
Bytes 
422 NOVEC,NOWRT, RD, 


Library Statistics 


Symbols 
Total Loaded 


18619 18 


COMMAND QUALIFIERS 


SII NOAA AO 


>>rroo SSF 


16$: 


=" 
~ 
wr 


Attributes 
EXE ,NOSHR, 


Percent 
0 


LCL, R 


Pages 
Mapped 


1000 


:57 VAX-11 Bliss-32 V4.0-742 
:13 DISKSVMSMASTER:CINIT.SRCJINIBIT.B32; fag 


RAP toes 

ie “titre, BLOCK 

#0,-(SP), #0, #512, BUFFER 
aie CNT, BITMAP_LBN, RO 


; RO 
BUFFER 
MAP_LBN 
#2, WRITE_BLOCK 
MAP_LBN 


EL, CON,NOPIC,ALIGN(2) 


Processing 
Time 


00:02.0 


Be Se Se Se Se Be Se Be Se Se Be Sa Ge Se Se Se Ge Se Se Be 


IN 
vc 


INIB bse Sep- VAX-11 Bliss-32 V4.0-742 P y 
the 8hG0 aS) Tae Se SE HS tee tt aT 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: INIBIT/OBJ=OBJ$:INIBIT MSRC$: INIBIT/UPDATE=(ENHS: INIBIT) 

3 size: 422 ode + 0 data bytes 
; Run Time: 38° 

: ok Lees 

; Lines/CPU Min: 827 

3 Lexemes/CPU-Min: 3 

; Memor 


By Used: 150 pages 
; Compilation Complete 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS_V4.0 


DIGITA 
CONFID 


